home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / killcard / killcard.s < prev   
Text File  |  1980-01-03  |  873b  |  38 lines

  1.  
  2. ResourceList        =    $150
  3. _LVORemResource        =    -$1EC
  4. _LVORemTask        =    -$120
  5. _LVOFindTask        =    -$126
  6. _LVORemIntServer    =    -$AE
  7. _LVODeleteMsgPort    =    -$2A0
  8.  
  9. Kill_Card:    move.l    4.w,a6
  10.         move.l    ResourceList(a6),a5
  11.         moveq    #40-1,d7        * only check 40 resources..
  12. find_card:    move.l    10(a5),a4        * ptr to name of resource
  13.         cmp.l    #'card',(a4)
  14.         beq.b    card_found
  15.         move.l    (a5),a5            * ptr to next resorce in chain.
  16.         dbra    d7,find_card
  17. nofix:        rts
  18.         
  19. card_found:    move.l    a5,a1
  20.         lea    $62(a1),a1
  21.         jsr    _LVORemIntServer(a6)        * kill card interrupt
  22.  
  23.         move.l    a5,a1
  24.         jsr    _LVORemResource(a6)        * kill card resource
  25.  
  26.         lea    CardRes.txt(pc),a1
  27.         jsr    _LVOFindTask(a6)
  28.         move.l    d0,a1
  29.         jsr    _LVORemTask(a6)            * remove resource task
  30.  
  31.         lea    CardDev.txt(pc),a1
  32.         jsr    _LVOFindTask(a6)
  33.         move.l    d0,a1
  34.         jmp    _LVORemTask(a6)            * remove device task
  35.  
  36. CardRes.txt:    dc.b    'card.resource',0
  37. CardDev.txt:    dc.b    'carddisk.device',0
  38.